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MAXI-BASIC Game Set 6 

After having loaded the MAXI-BASIC Interpreter Into your computer and 
selected the appropriate option (i.e. TV-only or HARDCOPY) start your audio 
cassette playing at the proper point and then type 



Then wait until the 



LOADcr 
READY 



message appears on the screen. 

The programs on this tape are recorded in the following order: 

#1 LUNAR LANDER 

#2 23 MATCHES 

#3 RADIX CONVERTER 

#4 PIZZA 

#5 BIORHYTHM 



Once the 



READY 



Message appears after the load; Type 



RUNcr 



to start the program running. 



All programs on this tape are self documenting in terms of execution 
instructions, or there are instructions provided in the documentation. In 
addition the directions, where applicable, can be read in the source listings 
as well as in the run examples. 

Since BASIC is a character and line oriented language these programs should 

run equally well with either a 32 or 64 character video display. However, 

there is the possibility that minor changes in some of the PRINT statements 

might make the output more appealing to an individual user; such changes are 

left to the discretion of the user since complete source and run listings have 
been provided. 
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po box 1086, arvada, Colorado 80001 
(303) 422^566 






V 



READY 
LIST 



HO^' 



1000 
1010 
1020 
1030 
1035 
1040 
1045 
1050 
1060 
1070 
1075 
1077 
1080 
1085 
1090 
1095 
1096 
1100 
1105 
1110 
1120 
1121 
1122 
1124 
71125 
1126 
1127 
1128 
112S 
1130 
1150 
1155 
1156 
1160 
1135 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1265 
1270 
1275 
1280 
1282 
1285 
3r^o 1290 
1300 
1310 
1320 
1330 

■\nS^ 1340 

^ 1350 

1360 



rem luner 

#"do you want instructions? yes=y or N0=N "; 

INPUT k\ 

IF AU>*Y" then 1150 

#TAB(255) 

#"ground control calling LUNER" 
#"lander. on board and ground" 

#"COMPUTSRS KAPUT TAKE OVERlIl" 

# 

#"CAPSULE WEIGHT 33000 LBS." 

#"AVAILABLE fuel 16500 LBS." 

#"ESTI'maTED FREE FALL IMPACT" 

#"TIME 120 SECONDS." 

#TAB(100) 

#"(RETURN)"; rINPUT A$ 

#TAB(255) 

#"SET RETRO ROCKET BURN RATE TO" 

#"ANY value FROM LBS/SEC" 

#"(FRES FALL) TO 300 LBS/SEC, THEN" 

#"TYPE a COMMA AND GIVE THE BURN" 

#"TIME LENGTH." :# 

#"(THS BURN RATE IS THE AMOUNT OF" 

#"FUEL THAT YOUR RETRO ROCKET WILLBURN EACH SECOND." 

#"THE BURN TIME LENGTH IS THE" 

#" NUMBER OF SECONtTS YOU VANT YOUR" 

#"RETR0 ROCKETS TO BURN AT THiS" 

#"RATE.)" 

# 

#" (RETURN)"; :INPUT A$ 

#TAB(255) 

E=0 

K, k .. .. .. .. .. .. .. 

# SEC ;tab(6); mi + ft ;tab(i5); mph ;tab{24); fuel 

IF E=l then 1260 

A=120 #^ _„ -. . . \ 

V=i H»s. 

M=33000 
N=165e0 
G=.001 

z=.i.a v>. v^^. 

L=0 ^^ > T ' 

#L;TAB(5);iNT{A)MNT(5280*{A-lNT(A)));TAB(13);%ZieF4;3600*V;TAB(23); 

E=l' 

#M-N 

# 

#"BURN RATE, TIME "; 

input K,T 

# 

IF M-N<.001 then 1400 

IP T<.001 TEEN 1160 

S=T 

IF M>=N+S*K THEN 1340 

S=(M-N)/K ^ 

GOSUB 1790 7i 5"^ 

IF I<=0 THEN 1650 ' ^ . ,# ^» «, , T i^ > ^t?^'^ '*"^''- 

IF V<=0 THEN 1380 . -^ ^-. «* . ^^ M >-.,,/, 









H 



w 



.1400 
1410 
1420 
1430 
1440 
1445 
1450 
1451 
1455 
1460 
1465 
1470 
1475 
1480 
1490 
1500 
1505 
1506 
1510 
1520 
1525 
1530 
1535 
1540 
1545 
1550 
1560 
1570 
.--5. 1575 

1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 

^1690 
1700 
1710 
1720 

wl730 
1740 

yi750 
1760 
1770 
1780 
1790 
1794 
1796 
1800 
1810 
1820 
1830 
READY 
PRINT 



SEC 



SEC 
MPH' 



1 r^ ^ 



Maxi BASIC Game #6 ^1390 GOSUB 159j?<5' 
1390 GOTO. 1290 

#"OUT OF FUEL AT "j%Z10F0;l; 

S=(-V+SQRT(V*V+2*A*G) )/G 

V=V+G*S 

L=L+S 

W=3600*V. 

#TAB(100) 

#"0N THE MOON AT ";%Z10F0;l; 

#"IMPACT VELOCITY ";%10F4;W,- 

# . " 

IF W>1.'2 THEN 1490 

#:# 

.#"«**.GREAT LANDING***" 

#TAB(1.00) 

GOTO 1010 

IF W>10 THEN 1520 

#"GOOD landing" 

#TAB(100) 

# 

GOTO 1010 

IF W>60 THEN 1560 " 

# 

#" CRAFT DAMAGED. YOU ARE STRANDED" 

#"UNTIL A RESCUE MISSION ARRIVES" 

#"H0PE YOUR OXYGEN HOLDS CUT." 

#TAB(100) 

GOTO 1010 

#:#"###YOU CRASHED-NO SURVIVORS###":# 

#"YOU BLASTED A NEW LUNAR CRATER 

#TAB(100)- 

GOTO 1010 

L=L+S 

T=T-S 

M=M-S*K 

A=I 

V=J 

RETURN 

IF S<.005 THEN 1440 

D=V+S0RT(V*V+2*A*(G-Z*K/M)) 

S=2*A/D 

GOSUB 1790 

GOSUB 159«'S 

GOTO 1650 

W=(l-M*G/(Z*K))/2 

S=M*V/( Z*K* ( V+SQRT (W*W+V/Z ) ) )+ .05 

GOSUB lb9«'S' 

IF I<=0 THEN 1650 

GOSUB 159jSJs,'r 

IF J>0 THEN 1290 

IF V>0 THEN 1710 

GOTO 1290 

Q=S*K/M 

IF Q>. 000001 THEN 1800 

Q=0 

J=V+G*S-Z*Q*(l+Q*(.5+Q*(l/3+Q*(.25+Q/5)))) 

I=A-G*S*S/2-V*S+Z«S*Q*( . 5+Q*( l/6+Q*(l/12+Q/20 ) ) ) 

RETURN 

END 



/ F \A)Z 7^ -H^" 






S ^'f 



i/ ^ 



^\K 



;%5F0;W*.2777;" FT DEEP.' 



13*1024-FREE(0) 
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Sii 
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/ r# # *■' 



i <|. '-C lA i\ 



READY 
RUN 

DO YOU WANT INSTRUCTIONS? YES^Y OR NO=N ?Y 



GROUND CONTROL CALLING LUNER 
LANDER. ON BOARD AND GROUND 
COMPUTERS KAPUT TAKE OVERIH 

CAPSULE WEIGHT 33000 LBS. 
AVAILABLE FUEL 16500 LBS. 

ESTIMATED FREE FALL IMPACT 
TIME 120 SECONDS. 



Maxi BASIC Game #6 EURN RATE, TIME 730,10 

SEC MI + FT MPH 

60 59 4434 3575.9725 



(RETURN)? 



SET RETRO ROCKET BURN RATE TO 
ANY VALUE FROM LBS/SEC 
(FREE FALL) TO 300 LBS/SEC, THEN 
TYPE A COMMA AND GIVE THE BURN 
TIME LENGTH. 

(THE BURN RATE IS THE AMOUNT OF 

FUEL THAT YOUR RETRO ROCKET WILLBURN EACH SECOND, 

THE BURN TIME LENGTH IS THE 

NUMBER OF SECONDS YOU WANT YOUR 

RETRO ROCKETS, TO BURN AT THIS 

RATE. ) 

(RETURN)? 



SEC MI + FT MPH FUEL 

120 2 3600. 16500 

BURN RATE, TIME 712,10 

SEC MI + FT MPH FUEL 
10 109 5189 3612.3934 16380 

BURN RATE, TIME 715,10 

SEC MI + FT MPH FUEL 

20 99 4960 3618.7636 16230 

BURN RATE, TIME ?1B,10 

SEC MI + FT MPH FUEL 

30 89 4682 3619.0282 16050 

BURN RATE, TIME 720,10 

SEC MI + FT MPH FUEL 

40 79 4432 3615.0898 15850 



FUEL 
15300 



BURN RATE, TIME 735,10 

SEC MI + FT MPH FUEL 

70 49 5298 3540.2562 14950 

BURN RATE, TIME 740,10 

SEC MI + FT MPH FUEL 

80 40 1037 3493.3111 14550 

BURN RATE, TIME 745,10 

SEC MI + FT MPH FUEL 

90 30 3030 3434.7109 14100 

BURN RATE, TIME 750,10 

SEC MI + FT MPH FUEL 
100 21 691 3363.9539 13600 

BURN RATE, TIME 7300,12 

SEC MI + FT MPH FUEL 
lie 12 3511 2719.6105 10600 

BURN RATE, TIME 73^,10 

SEC MI + FT MPH FUEL 
120 6 505 1995.3668 7600 

BURN RATS, TIME 7300,10 

SEC MI + FT MPH FUEL 

130 1 3553 1169.9279 4600 

BURN RATE, TIME 7300,10 



ON THE MOON AT 
IMPACT VELOCITY 



137. SEC 
500.0104 MPH 



###YOU CRASHED-NO SURVIVORS### 

YOU BLASTED A NE'* LUNAR CRATER 139. FT DEEP, 

DO YOU WANT INSTRUCTIONS? YES=Y OR NO=N 7 



BURN RATE, TIME 725,10 

SEC MI + FT MPH FUEL 

50 69 4315 3600.8179 15600 
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READY 
LIST 

5#"" :#"":#"":#"" 

10#TAB(10);"23 matches" 

15#"" :#"":#"" :#"" 

20 LET Y=0 :LET Z=0 

110#"LET'S play 23 MATCHES. 

120#"THEN I MOVE. YOU MAY TAKE 1 OR' 

130#"SO MAY I. THE ONE WHO HAS TO": 

135#"":#"G00D LUCK AND MAY THE BEST" :#"SCHEMER WIN. 

140#"" 

150 LET M=23 

200 REM THE HUMAN'S MOVE 

205#"" 

210#"there are now";m;" matches." 

21 5#"" 

220 INPUT "how many DO YOU TAKE? ",H 

240 IF H>M THEN 510 

250 I? H<>INT(H) THEN 510 

260 IF H<=0 THEN 510 

270 IF H>=4 THEN 510 

280 LET M=M-H 

290 IF M=0 THEN 410 

300 REM COMPUTER'S MOVE 

305 IF M=l THEN 440 

310 LET R=M-4*INT{M/4) 

320 IF ROl THEN 350 

330 LET C=INT(3*RND(0))+1 

340 GOTO 360 

350 LET C=(R+3)-4*INT((R+3)/4) 

360 LIT M=M-C . 

370 IF M=0 THEN 440 

37 5#"" 

380#"i took";c;" " 

390 goto 210 

400 REM DETERMINE WINNER 

410#"" 

420#"l WON!!! BETTER LUCK NEXT TIME." 

425 LET Z=Z+1 

430 GOTO 460 

440#" " 

450#"O.K. YOU WON. LET'S PLAY AGAIN." 

455 LET Y=Y+1 

460#"":#"":#"THE SCORE IS NOW; ME";z;" Y0U";Y 

470 GOTO 140 

500 REM THE HUMAN CHEATED! 

510#"":#"YOU CHEATED! BUT I'LL GIVE YOU 

520 GOTO 215 

9999 END 

READY 

PRINT "size =";i3*1024-FREE(0) 

SIZE = 1035 

READY 



Maxi BASIC Game #6 



WE START :# WITH 23 MATCHES. YOU MOVE FIRST' 
":tt"2 OR 3 MATCHES AND ON MY TURN" 
#"TAKE the LAST MATCH LOSES." 



READY 
RUN 



:# ANOTHER CHANCE, 



23 MATCHES 



LET'S PLAY 23 MATCHES. WE START 
WITH 23 MATCHES. YOU MOVE FIRST 
THEN I MOVE. YOU MAY TAKE 1 OR 
2 OR 3 MATCHES AND ON MY TURN 
SO MAY I. THE ONE WHO HAS TO 
TAKE THE LAST MATCH LOSES. 

GOOD LUCK AND MAY THE BEST 
SCHEMER WIN. 



THERE ARE NOW 23 MATCHES. 

HOW MANY DO YOU TAKE? 1 

I TOOK 1 

THERE ARE NOW 21 MATCHES. 

HOW MANY DO YOU TAKE? 3 

I TOOK 1 

THERE ARE NOW 17 MATCHES. 

HOW MANY DO YOU TAKE? 3 

I TOOK 1 

THERE ARE NOW 13 MATCHES. 

HOW MANY DO YOU TAKE? 2 

I TOOK 2 

THERE ARE NOW 9 MATCHES. 

HOW MANY DO YOU TAKE? 1 

I TOOK 3 

THERE ARE NOW 5 MATCHES . 

HOW MANY DO YOU TAKE? 1 

I TOOK 3 

THERE ARE NOW 1 MATCHES . 

HOW MANY DO YOU TAKE? 1 

I WON!!! BETTER LUCK NEXT TIME. 
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THE SCORE IS NOW; ME 1 YOU 2 



READY 
II ST 



Maxi BASIC Game #6 



10 DIM D$(3) 

15 #"":#"":#"":#"":#"" 

16 PRINT TAB{9); 

17 PHINT^IJ RADIX CONVERTER" 
19 #"":#"":#"":#"" 

22 PRINT "TYPe'iN (DEC) FOR DECIMAL TO OCTAL CONVERSION, OR (OCT) EOR" 

32 PRINT "OCTAL TO DECIMAL CONVERSION." 

40 #"": INPUT "dec OR OCT? ",D$ 

52 IE D$="DEC" THEN 90 

60 IE D$="oCT" THEN 300 

70 PRINT " TYPE DEC OR OCT ONLY" 

80 GOTO 40 

90 INPUTl "DEC# = ",D 

100 IF D>262143 TEEN 520 

110 LET P=l 

120 RESTORE 210 

130 LET 0=0 

140 LET C=l 

150 LET Q=IMT{D/8) 

160 LET R(C)=D-Q*8 

170 IF Q<8 THEN 210 

180 LET D=Q 

190 LET C=C+1 

200 GOTO 150 

210 DATA 1,121,100,1000,10000,100000 

220 READ I 

230 LET 0=0+R(P)*I 

240 LET P=P+1 

250 ir P<C+1 THEN 220 

260 READ I 

270 LET 0=0+Q*I 

280 PRINT " 0CT# =";0 

290 GOTO 40 

300 INPUTl "OCT# = ",0 

310 IF 0777777 THEN 520 

320 LET 0=0/100000 

330 FOR J=l TO 6 

340 LET ■P(J) = INT(0) 

350 IF P(J)>7 THEN 480 

360 LET 0=0-P(J) 

370 LET 0=0*10 

380 NEXT J 

390 LET L=0 

400 RESTORE 410 

410 DATA 32768,4096,512,64,8,1 

420 FOR J=l TO 6 

430 READ X 

440 LET L=L+P(J)*I 

450 NEXT J 

460 PRINT " DSC# =";! 

470 GOTO 40 

480 EXIT 490 

490 #"":PHINT "THE ENTRY MUST BE IN OCTAL" 

510 GOTO 40 

520 PRINT 

530 PRINT" INPUT CANNOT EXCEED (DEC 262143) OR (OCT 777777)." 

540 GOTO 40 

550 END 
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READY 
LIST 

10 REM PROGRAM: PIZZA 

20 REM FROM 101 BASIC COMPUTER GAMES 

30 REM ADAPTED TO MAXI-EASIC BY J.R.BULL.SR 1/10/77 

40 DIM A$(26) ,S$(28),N$(B),A(10),M$(4) 

50# 

60 #"PIZZA DELIVERY GAME":# 

70 INPUT"WHAT IS YOUR FIRST NAME? " ,N$ 

80 INPUT"WHSRE ARE YOU FROM (CITY)?' ,X^ 

90 # 

100 #"hi, ";n$ 

110#"in this game you are to take orders for pizzas." 

122#"then you are to tell a delivery" 

130#"boy where to deliver the ordered"; 

140#"PIZZAS" "^ 

150 GOSUB 940 

160# 

170# 

180 REM MAP DATA READ 

190 FOR 1=1 TO 16 

220 S$=S$+" " 

210 READ S$(I ,1) 

220 NEXT I 

230 FOR 1=1 TO 4 

240 M$=M$+" 

250 READ M$(I,I) 

260 NEXT I 

270 DATA "a","b","c","d","e","f","g","h","I","j","k","l","m"."n","0",' 

280 DATA "l","2","3","4" 

290 REM 300 TO 440 IS MAP PRINT ROUTINE 

300 #"map of the CITY OF ";x$ 

310 #"* 1 2 3 4 *" 

320 K=4 

330 FOR 1=1 TO 4 

340 Mi=M?+" 

350 #' - 

360 #M$(K,K); 

370 51=16-4*1+1 

380 #" ";s$(si,si);" ";s$(si+i,si+i);" ";s$(si+2,si+2); 
390 #" ";si(si+3,si+3); 
400 #" ";m$(k,k) 

410 K=K-1 

420 NEXT I 

430 #"-*■ -„ 

440 #"0 1 2 3 4 * 

450 # 

460 #"THE above IS A MAP OF THE flO»!ES WHERE YOU ARE TO SEND PIZZAS. " 

470 GOSUB 940 

460 GOSUB 940 

490 # 

500 #"T0UR job is to GIVE A TRUCK DRIVER THE LOCATIONS OR COORDINATES' 

510 #"0r THE HOME ORDERING THE PIZZA." 

520 # 

530 INPUT"D0 YOU NEED MORE DIRECTIONS? ",A$ 

540 IF A$="YES" then 570 

550 IF A$="N0" then 710 

560 #"'YES' OR 'NO' PLEASE, NOW ": GOTO 530 

570 #"SOMEBODY WILL ASK FOR A PIZZA TO BE DELIVERED. THEN A DELIVERY" 



582 #"B0I will ask FOR THE LOCATION 

590 # 

600 # "EXAMPLE:" 

610 #"THIS is J. PLEASE SEND A PIZZA. _ „ 

620 #"dri¥ER to ";n$;". where does J LIVjl? 

630 #"T0UR answer WOULD BE 2,3" 

64-0 # 

650 input UNDERSTAND? ,A$ 

66Z IF Ai="lES" THEN 680 

670 #"THIS JOB IS TOO DIFFICULT FOR TOU. THANKS ANYWAY. :GOTO 920 

680 #"GOOD. YOU ARE NOW READY TO START TAKING ORDERS. 

690 # 

700 #"G00D LUCK! I, ;N$ 

710 FOR 1=1 TO 5 

720 S$=S$ + " 

730 S=INT(RND(1)*16+1) 

740 # .. ^, X. "" 

750 #"hello ";n^; s pizza, this is ;s$(s,s). « 

760 #" please send a pizza." 

770 #" driver to ";n$;". where does ;s$(s,s); live? ', 

780 INPUT A(1),A(2) 
7S0 T=A(1)+(A(2)-1)*4 
800 IF T=S THEN 850 
810 S|(T,T)=S$(T,T)+" 

820 # THIS IS ";s$(T,T); 

630, #"I LIVE AT ";A(1); , 

840 GOTO 770 ,. „ .„„. ' 

850 #"hello ";n$;". this is ;s$(s,s); , thanks for the pizza. 

860 NiXT I 

870 # ,. , 

380 INPUT"D0 you WANT TO DELIVER MORE PIZZAS? ,A$ 

890 IF A$="YES" then 710 

900 # 

910 #"OKAY ";N$;", see you LATER! 

S20 END 

930 REM TIME DELAY ROUTINE 

940 N=0 

S50 N=N+1 

960 IF N<140 THEN 950 ELSE RETURN 

970 STOP 

READY 



Maxi BASIC Game, #6 



i did not order a pizza, 
;a(z) 



READY 
RUN 



PIZZA DELIVERY GAME 

WHAT IS YOUR FIRST NAME? CHUCK 
WHERE ARE YOU FROM (CITY )? DENVER 

HI, CHUCK 

IN THIS GAME YOU ARE TO TAKE ORDERS FOR PIZZAS 

THEN YOU ARE TO TELL A DELIVERY 

BOY WHERE TO DELIVER THE ORDEREDPI ZZAS 



MAP OF THE CITY OF DENVER 
* 1 2 ^3 4 * 



1 

« 



1 2 3 4- 

THE ABOVE IS A MAP OF THE HOflES WHERE YOU ARE TO SEND PIZZAS. 

YOUR JOB IS TO GIVE A TRUCK DRIVER THE LOCATIONS OR COORDINATES 
OF THE HOME ORDERING THE PIZ2A. 

DO YOU NEED MORE DIRECTIONS? YES 

SOMEBODY WILL ASK FOR A PIZZA TO BE DELIVERED. THEN A DELIVERY 

BOY WILL ASK FOR THE LOCATION 

EXAMPLE : 

THIS IS J. PLEASE SEND A PIZZA. 
DRIVER TO CHUCK. WHERE DOES J LIVE? 
YOUR ANSWER WOULD BE 2,S 

UNDERSTAND? YES 

GOOD. YOU ARE NOW READY TO START TAKING ORDERS. 

GOOD LUCK!!, CHUCK 

HELLO CHUCK'S PIZZA. THIS IS N PLEASE SEND A PIZZA. 

DRIVER TO CHUCK. WHERE DOES N LIVE??4,2 
THIS IS H. I DID NOT ORDER A PIZZA. 
I LIVE AT 4, 2 

DRIVER TO CHUCK. WHERE DOES N LIVE??2,4 
HELIO CHUCK. THIS IS N, THANKS FOR THE PIZZA. 

HELLO CHUCK'S PIZZA. THIS IS N PLEASE SEND A PIZZA. 

DRIVER TO CHUCK. WHERE DOES N LIVE??2,4 
HELLO CHUCK. THIS IS N, THANKS FOR THE PIZZA. 

HELLO CHUCK'S PIZZA. THIS IS C PLEASE SEND A PUZA. 
DRIVER TO CHUCK. WHERE DOES C LIVE?? 
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* 1»/» 



GOTO 170 



RIADY 
LIST 

10 REM BIORHYTHM FOR TTY 

20 REM BY T.H. 12/13/76 

25 REM MODIEIED BY CPH 1/1/77 

30 PRINT "bIOREYTHM PROGRAM IN MAXI BASIC* 

40 PRINT 

50 LET Rl= (360/33 )/57. 2958 

60 LET E2=(360/28)/57.2958 

70 LET R3= (360/23 )/57. 2958 

80 DATA 0,31,59,90,120,151,181,212,243,273,304,334 

90 DATA 365 

100 DIM A^(30) 

110 DIM L$(50),M^(50) 

120 rOR 1=1 TO 50:L^=L^+" ":M$=M$+" ":NEXT 

130 RESTORE 

140 PRINT "enter BIRTHDATE, CURRENT DATE (YYMMDD)^ 

150 LET P1=0 
*> 160 INPUT D1,D2 
■" * 170 LET D9=D2 

180 INPUT"DURATION? " ,J5 
_lJ:a_IllHLl3UJ:Ii--QI_aiB JE C T ? 
r~l95 EOR X9=l TO JS^ , __ 

' 196 #"" M ^ 

197 NEXTJLS --i 

L" idl0 CTiSUB1180 

220 IE D1>D2 THEN PRINT"INVALID DATES" 
-JL-230 LET X1=D1 
■^ 240 GOSIJB'300 

250 LET Y1=X2:LET M1=X3: 

260 LET Xl=e2 

270 GOSUB 300 

280 LET Y2=X2: LET M2=X3! 

290 GOTO 340 

300 LET X2=INT(X1/10000) 

310 LET X3=INT(X1/120)-(X2*100) 

320 LET X4=X1-'((X3*100) + (X2*10000)) 

330 RETURN 

340 LET D4=(JNT((Y2-1)*365.25)-INT((Y1-1)*365.25)) 

350 FOR 1=1 TO Ml 

360 READ Jl 

370 NEXT I 

380 RESTORE 

390 FOR 1=1 TO M2 

400 READ J 2 

410 NEXT I 

420 LET J1=J1+D1 

430 LET J2=J2+D2 

440 LET Ll=(Yl/4)-(INT(Yl/4))' 

450 IF L1=0 THEN LET L1=1:60T0 470 

460 LET L1=0 

470 LET L2=(Y2/4)-(INT(Y2/4)) 

460 IF L2=0 THEN LET L2=1:G0T0 500 

490 LET L2=0 

500 IF Ml>2 THEN LET J1=J1+L1 

512 IF M2>2 THEN LET J2=J2+L2 

520 LET D4=D4+J2-J1 

530 LET Dl=(D4-(INT(D4/33)*33)) 

540 LET D2=(D4-(INT(D4/28)*28)) 

550 LET D3=(D4-(INT(D4/23)*23)) 
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LET D1=X4 



LET D2=X4 



560 FOR L3=l TO 50 Maxi BASIC Game #6 

570 L$=M$ 

600 X=SIN(R1*D1) 

610 Y=SIN(R2*D2) 

620 Z=SIN(R3*D3) 

625 LET Q=(X+Y+Z)/3 

627 LET L$(25,25)=": ' 

630 LET Li(X*20+25,X«20+25)="l" 

640 LET Li(Y*20+25,Y*20+25)="E" 

650 LET Li(Z*20+25,Z*20+25)="P" 

655 LET Li(Q*20+25,Q*20+25)="c" 

660 PRINT ■ : "j 

690 PRINT L$; 

710 PRINT ": "; 

720 GOSUB 1000t # DS?" : "i 

730 IF' D1=0 OR Dl=16 THEN LET C=l:#"l' 

750 IF D2=0 OR D2=14 THEN LET C=1:#"e' 

770 IF D3=0 OR D3=12 THEN LET C=1:#"P' 

790 IF C=l THEN LET C=0 

800 PRINT 

810 LET Dl=Dl+l 

820 LET D2=D2+1 

830 LET D3=D3+1 

840 IF Dl=33 THEN LET D1=0 

850 IF D2=28 THEN LET D2=0 

860 IF D3=23 THEN LET D3=0 

870 LET J2=J2+1 

880 LET J6=J6+1 

890 IF J5<J6 THEN 960 

902 NEXT L3 

910 LET P1=P1+1 

920 GOSUB 1390 

930 PRINT -.PRINT 

940 GOSUB 1180 

950 GOTO 560 

960 LET P1=P1+1 

970 GOSUB 1390 

990 GOTO 1490 

1000 RESTORE 

1010 FOR 1=1 TO 13 

1020 LET J4=J3 

1030 READ J3 

1040 IF J2>59 THEN LET J3=J3+L2 

1050 IF J2<=J3 THEN 1130 

1060 NEXT I 

1070 LET Y2=Y2+1 

1080 LET L2=(Y2/4)-(lNT(Y2/4)) 

1090 IF L2=0 THEN LET L2=l :GOTO 1110 

1100 LET L2=0 

1110 LET J2=J2-365 

1120 GOTO 1000 

1130 LET M2=I-1 

1140 LET D6=J2-J4 

1150 IF J2=60 THEN LET D6=D6+L2 

1160 LET D5=y2*10000+(M?*100)+D6 

1170 RETURN 

1180 REM- 

1185 FOR 1=1 TO 72 

1190 PRINT "/"; 

1200 NEXT I 

1210 PRINT 



-13- 



1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1452 
1455 
1460 
1470 
1480 
1490 
1500 
READY 
PRINT 
2875 
READY 



DAYS 



LOW 
CRITICAL' 



HIGH 



PRINT": COMPUTERIZED STUDY OF BIORHYTEMIC CURVES" 

PRINT ": SUBJECT, ";A$ 

PRINT ": DATE OF STUDY - ";D9;" - DURATION ";J5;' 

FOR 1=1 TO 72: PRINT "/";:NEXT I:PRINT 

FOR 1=1 TO 72 

#"/"; 

NEXT I 

# 

PRINT ": 

PRINT " DATE 

FOR 1=1 TO 72 

PRINT "/"; 

NEXT I 

PRINT 

RETURW 

PRINT 

RETURN 

FOR 1=1 TO 72:PRINT "/";:NEXT I: PRINT 

PRINT ": I : INTELLECTUAL ABILITY, AMBITION, 33 DAT CYCLE "; 

GOSUB 1370 

PRINT ": E 

GOSUB 1370 

PRINT": P : PHYSICAL STRENGTH, ENDURANCE, 23 DAY CYCLE 

GOSUB. 1370 

PRINT": C : SCALED ALGEBRAIC SUM OF I , E AND P."; 

GOSUB 1370 

FOR 1=1 TO 72:PRINT"/"; :NEXT I: PRINT 

PRINT " PAGE "; PI 

RETURN 

REM END 

END 

13*1024-FREE(0) 



EMOTIONAL, NERVES, MOOD, 28 DAY CYCLE, 
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//////////////////////////////////////////////////////////////////////// 

: COMPUTERIZED STUDY OF BIORHYTHMIC CURVES „^ 

: SUBJECT CHUCK ^^^'^ BASIC Game #6 

: DATE OF 'study - 770327 - DURATION 90 DAYS 

//////////////////////////////////////////////////////////////////////// 
//////////////////////////////////////////////////////////////////////// 

: LOW HIGH : DATE CRITICAL 

//////////////////////////////////////////////////////////////////////// 

E I C : P : 770327 

E I C : P : 770328 

EIC P : : 770329 

P CEI : : 770330 

P C E : 770331 ,: IE 

? C : IE : 770401 

IE : 770402 

P :C I E : 770403 

P : C IE r 770404 

C IE : 770405 

C IE : 770406 

C IE : 770407 

C E : 770408 

C EI : 770409 

P CEI : 770410 

P EC I : 770411 

E C PI : 770412 

E CI P : 770413 

EC P : 770414 

E : I C P : 770415 

E :I C P : 770416 

E I C P : 770417 

E I C : P : 770418 

E I C : P : 770419 

EIC : P : 770420 

EIC P : : 770421 

E I C P : : 770422 

E C P : : 770423 

I CPE : . : 770424 

IPC E : : 770425 

P C E : : 770426 

PI C E : : 770427 

PI C E : 770428 

PI C : E : 770429 

P C : E : 770430 

IPC: E : 770501 

IPC E : 770502 : P 

: IPC E : 770503 : I 

I PC E : 770504 

I C E : 770505 

I CP E : 770506 

I CEP : 770507 

EIC P : 770508 

E C P : 770509 

E C P I : 770510 

E C I : 770511 

PC I : 770512 

' C I : 770513 

I : 770514 

I : 770515 
//////////////////////////////////////////////////////////////////////// 
I : INTELLECTUAL ABILITY, AMBITION, 33 DAY CYCLE. 
E : EMOTIONAL, NERVES, MOOD, 28 DAY CYCLE. 
P : PHYSICAL STRENGTH, ENDURANCE, 23 DAY CYCLE. 
C : SCALED ALGEBRAIC SUM OF I , E AND P. 
//////////////////////////////////////////////////////////////////////// 

PAGE 1 



//////////////////////////////////////////////////////////////////////// 
: COMPUTERIZED STUDY OF BIORHYTHMIC CURVES 
'. SUBJECT, CHUCK 

: DATE OF STUDY - 770327 - DURATION 90 DAYS 

//////////////////////////////////////////////////////////////////////// 
//////////////////////////////////////////////////////////////////////// 
: DOW HIGH : DATE CRITICAL 

//////////////////////////////////////////////////////////////////////// 

E*] 
EP 
P 
P 

EP 



C 

C 

EPC 



E-CP 



CE 



I P 



IC 



c 

CE 



P E 



E C 

C 
C 
C 
C 

C 
' C 



C P 
C 





I 




: 770516 




I 






: 770517 
: 770518 
: 770519 
: 77052^ 
: 770521 
: 770522 
: 770523 
: 770524 
770525 
: 770526 


: I 

: P 

: E 


p 






: 770527 




E 




P 


: 770523 






E 


P 

E P 
EP 


: 770529 

770530 

: 770531 




C 




PE 


: 770601 




C 




P E 


770602 




C 


P 


E 
E 


: 770603 
770604 ; 








E 


770605 


I 




E 




: 770606 


P 


E 






770607 : 




I 






770608 






1 


I 

I : 

I : 

I : 

I : 

I : 

I : 


770609 

770610 : 

770611 : 

770612 : 

770613 : 

770614 : 

770615 : 

770616 : 


E 






I 


770617 : 


P 




I 




770618 : 




IP 




P : 


770619 : 

770620 : 








P : 


770621 : 


I 






P 


770622 : 








P : 


770623 : 


E 






P : 


770624 : 





I c 
c 

I E C 
I : C 
I : C E P : 770625 . 

//////////////////////////////////////////////////////////////////////// 
I : INTELLECTUAL ABILITY, AMBITION, 33 DAY CYCLE. 
E : EMOTIONAL, NERVES, MOOD, 28 DAY CYCLE. 
P : PHYSICAL STRENGTH, ENDURANCE, 23 DAY CYCLE. 
C : SCALED ALGEBRAIC SUM OF I , E AND P. 
//////////////////////////////////////////////////////////////////////// 
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